DEFINE BUFFER d FOR qaddb.pt_mstr.
DEFINE BUFFER s FOR src.pt_mstr.

FOR EACH d WHERE d.pt_part BEGINS "P" EXCLUSIVE-LOCK:
    FIND FIRST s WHERE s.pt_part = d.pt_part NO-LOCK NO-ERROR.
    IF AVAILABLE s THEN DO:
       ASSIGN d.pt_dsgn = s.pt_dsgn.
/*        DISP d.pt_part d.pt_dsgn d.pt_desc1 s.pt_dsgn. */
    END.
END.
